home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / AOCE Sample Code / PowerTalk Access Modules / Sample PMSAM / PMSAM Framework / Common / FileUtils.cp < prev    next >
Encoding:
Text File  |  1995-07-28  |  19.6 KB  |  931 lines  |  [TEXT/MPS ]
  1. /*
  2.     File:        FileUtils.cp
  3.  
  4.     Contains:    xxx put contents here xxx
  5.  
  6.     Written by:    Tim Harnett
  7.  
  8.     Copyright:    © 1994 by Apple Computer, Inc., all rights reserved.
  9.  
  10.     Change History (most recent first):
  11.  
  12.         <12>     4/5/95        HDA        fix DoGet's check for folders. Now checks for ioDirMask
  13.         <11>     2/21/95    TMH        metrowerks change, add func prototypes
  14.         <10>     1/11/95    TMH        added Write(StringPtr pascalString)
  15.          <8>    10/20/94    TMH        added Exists()
  16.          <7>    10/14/94    TMH        some file id methods
  17.          <6>    10/13/94    TMH        added Delete()
  18.          <5>     10/6/94    TMH        SetFSSpec does not return an error
  19.          <4>     10/3/94    TMH        added SetType and SetCreator
  20.          <3>     9/30/94    TMH        added CFolderIterator
  21.          <2>     9/27/94    TMH        added CFSSpec, CFolder and CFile descend from CFSSpec
  22.          <1>     9/20/94    TMH        Abandon RoadsideRest embrace Mercury
  23.          <4>     9/20/94    TMH        added overloaded Write(char* str) method
  24.          <3>      9/9/94    TMH        more methods for CFile.  Use of Failures
  25.          <2>     6/14/94    TMH        methods for opening closeing, writing
  26.                  4/18/94    TMH        xxx put comment here xxx
  27.  
  28.     To Do:
  29. */
  30.  
  31. #ifndef __SCRIPT__
  32. #include "Script.h"
  33. #endif
  34.  
  35. #ifndef __ERRORS__
  36. #include "Errors.h"
  37. #endif
  38.  
  39. #ifndef __Debug__
  40. #include "Debug.h"
  41. #endif
  42.  
  43. #ifndef __RESOURCES__
  44. #include "Resources.h"
  45. #endif
  46.  
  47. #ifndef __STRING__
  48. #include "String.h"
  49. #endif
  50.  
  51. #ifndef __STRINGS__
  52. #include "Strings.h"
  53. #endif
  54.  
  55. #ifndef __PLSTRINGFUNCS__
  56. #include "PLStringFuncs.h"
  57. #endif
  58.  
  59.  
  60. #ifndef __THREADS__
  61. #include "Threads.h"
  62. #endif
  63.  
  64. #ifndef __CommonResources__
  65. #include "CommonResources.h"
  66. #endif
  67.  
  68. #ifndef __FileUtils__
  69. #include "FileUtils.h"
  70. #endif
  71.  
  72.  
  73. #ifndef __UFAILURE__
  74. #include "UFailure.h"
  75. #endif
  76.  
  77. Boolean    gFileAsync = true;
  78.  
  79. //--------------------------------------
  80. //        C F S S p e c
  81. //--------------------------------------
  82.  
  83. CFSSpec::CFSSpec(short vRefNum,long parentdDirID,StringPtr name)
  84. {
  85.  
  86.     FSMakeFSSpec(vRefNum,parentdDirID,name,&fFSSpec);
  87. }
  88.  
  89. CFSSpec::CFSSpec(short vRefNum,long parentDirID,char* name)
  90. {
  91.  
  92.     //    See pg 2-35 Inside Macintosh Files 
  93.  
  94.     if( name != 0 )
  95.         c2pstr(name);
  96.         
  97.     if( name == 0 || name[0] == 0 ) {
  98.     
  99.         fFSSpec.vRefNum = vRefNum;
  100.         fFSSpec.parID = parentDirID;
  101.         fFSSpec.name[0] = 0;
  102.         
  103.     } else {
  104.     
  105.         FSMakeFSSpec(vRefNum,parentDirID,(StringPtr)name,&fFSSpec);
  106.     }
  107.     
  108.     if( name != 0 )
  109.         p2cstr((StringPtr)name);
  110. }
  111.  
  112.  
  113. CFSSpec::CFSSpec(HFileInfo* infoPB)
  114. {
  115.     FSMakeFSSpec(infoPB->ioVRefNum,infoPB->ioFlParID,infoPB->ioNamePtr,&fFSSpec);
  116. }
  117.  
  118. void CFSSpec::SetFSSpec(short vRefNum,long parentdDirID,StringPtr name)
  119. {
  120.     FSMakeFSSpec(vRefNum,parentdDirID,name,&fFSSpec);
  121. }
  122.  
  123.  
  124. //-------------------------------------------------------------------------------
  125. OSErr CFSSpec::GetCatInfo(CInfoPBRec& cInfo)
  126. {
  127.  
  128.     //    Caution: that ioNamePtr points into this CFile object.
  129.         
  130.     cInfo.hFileInfo.ioCompletion = NULL;
  131.     cInfo.hFileInfo.ioNamePtr = this->NamePtr();;
  132.     cInfo.hFileInfo.ioVRefNum = this->VRefNum();
  133.     cInfo.hFileInfo.ioFDirIndex = 0;
  134.     cInfo.hFileInfo.ioDirID = this->ParID();
  135.     OSErr err = PBGetCatInfoSync(&cInfo);        // •• async?
  136.     
  137.     return err;
  138.     
  139. }
  140.  
  141.  
  142.  
  143. //-------------------------------------------------------------------------------
  144. OSErr CFSSpec::SetCatInfo(CInfoPBRec& cInfo)
  145. {
  146.  
  147.     //    Caution: that ioNamePtr points into this CFile object.
  148.  
  149.     cInfo.hFileInfo.ioCompletion = NULL;
  150.     cInfo.hFileInfo.ioNamePtr = this->NamePtr();;
  151.     cInfo.hFileInfo.ioVRefNum = this->VRefNum();
  152.     cInfo.hFileInfo.ioDirID = this->ParID();
  153.     OSErr err = PBSetCatInfoSync((CInfoPBRec*) &cInfo);  // •• async?
  154.     
  155.     return err;
  156.     
  157.     
  158. }
  159.  
  160.  
  161. //--------------------------------------
  162. //        C F i l e
  163. //--------------------------------------
  164.  
  165.  
  166. //-------------------------------------------------------------------------------
  167. CFile::CFile()
  168. {
  169.     fRefNum = 0;
  170. }
  171.  
  172. //-------------------------------------------------------------------------------
  173. CFile::CFile(short vRefNum,long parentDirID,StringPtr name) : CFSSpec(vRefNum,parentDirID,name)
  174. {
  175.     fRefNum = 0;
  176. }
  177.  
  178. //-------------------------------------------------------------------------------
  179. CFile::CFile(short vRefNum,long parentDirID,char* name) : CFSSpec(vRefNum,parentDirID,name)
  180. {
  181.     fRefNum = 0;
  182. }
  183.  
  184.  
  185. //-------------------------------------------------------------------------------
  186. CFile::CFile(HFileInfo* infoPB) : CFSSpec(infoPB)
  187. {
  188.     fRefNum = 0;
  189. }
  190.  
  191.  
  192. //-------------------------------------------------------------------------------
  193. OSErr CFile::Create(OSType fileCreator, OSType fileType)
  194. {
  195.     
  196.     return FSpCreate(&fFSSpec,fileCreator,fileType,smSystemScript);
  197. }
  198.  
  199. //-------------------------------------------------------------------------------
  200. OSErr CFile::Open(char permission)
  201. {
  202.     return FSpOpenDF(&fFSSpec,permission,&fRefNum);
  203. }
  204.  
  205. //-------------------------------------------------------------------------------
  206. OSErr    CFile::OpenResourceFork(char permission)
  207. {
  208.         return FSpOpenRF(&fFSSpec,permission,&fRefNum);
  209. }
  210.  
  211. //-------------------------------------------------------------------------------
  212. OSErr CFile::Close()
  213. {
  214.     if( fRefNum != 0 )
  215.         return FSClose(fRefNum);
  216.     
  217.     fRefNum = 0;
  218.     return noErr;
  219. }
  220.  
  221.  
  222.  
  223. //-------------------------------------------------------------------------------
  224. OSErr CFile::Delete()
  225. {
  226.     OSErr osErr =this->Close();
  227.     if( osErr != 0 )
  228.         return osErr;
  229.         
  230.     return FSpDelete(&fFSSpec);
  231. }
  232.  
  233.  
  234. //-------------------------------------------------------------------------------
  235. OSErr CFile::Write(StringPtr thePString)
  236. {
  237.     long dataLen = (long)thePString[0];
  238.     return FSWrite(fRefNum,&dataLen,(Ptr)&thePString[1]);
  239. }
  240.  
  241.  
  242. //-------------------------------------------------------------------------------
  243. OSErr CFile::Write(void* data, long dataLen)
  244. {
  245.     return FSWrite(fRefNum,&dataLen,(Ptr)data);
  246. }
  247.  
  248.  
  249. //-------------------------------------------------------------------------------
  250. OSErr CFile::Write(char* s)        // for writing cstrings
  251. {
  252.     long    dataLen = strlen(s);
  253.     return FSWrite(fRefNum,&dataLen,(Ptr)s);
  254. }
  255.  
  256.  
  257. //-------------------------------------------------------------------------------
  258. long CFile::GetPosition()
  259. { 
  260.     long position = 0;
  261.     FailOSErr( GetFPos(fRefNum, &position) ); 
  262.     
  263.     return position;
  264. }
  265.  
  266.  
  267. //-------------------------------------------------------------------------------
  268. long CFile::GetSize()
  269. { 
  270.     long    dataLength = 0;
  271.      FailOSErr( GetEOF(fRefNum, &dataLength) );
  272.     return dataLength;
  273. }
  274.  
  275.  
  276.  
  277. //-------------------------------------------------------------------------------
  278. void CFile::SetPosition(long newPosition)
  279. { 
  280.     FailOSErr( SetFPos(fRefNum, fsFromStart, newPosition) );
  281. }
  282.  
  283.  
  284.  
  285.  
  286. //-------------------------------------------------------------------------------
  287. OSErr CFile::Read(void* data, long* dataLen)
  288. {
  289.     return FSRead(fRefNum,dataLen,(Ptr)data);
  290. }
  291.  
  292.  
  293.  
  294. //-------------------------------------------------------------------------------
  295. long CFile::ReadUntilChar(void* buf,long* dataLen,char tillChar)
  296. {
  297.     char* p = (char*)buf;
  298.     
  299.     long amountRead = 0;
  300.     while( amountRead < *dataLen ) {
  301.     
  302.     
  303.         char c = this->ReadByte();
  304.         if( c == tillChar)
  305.             break;
  306.         
  307.         amountRead++;
  308.         *p++ = c;
  309.         
  310.     }
  311.     
  312.     return amountRead;
  313.  
  314. }
  315.  
  316.  
  317.  
  318. //-------------------------------------------------------------------------------
  319. char CFile::ReadByte()
  320. {
  321.     char    c = 0;
  322.     long    readLen = 1;
  323.     FailOSErr(  FSRead(fRefNum,&readLen,(Ptr)&c) );
  324.     return    c;
  325. }
  326.  
  327.  
  328.  
  329. //-------------------------------------------------------------------------------
  330. long CFile::ReadLine (char* lineBuf,long maxSize,char lineTerminator) 
  331. {
  332.  
  333.     this->SetToStartOfLine(lineTerminator);
  334.         
  335.     lineBuf[0] = 0;
  336.  
  337.  
  338.     long     fileSize = this->GetSize();
  339.     long     curPosition = this->GetPosition();
  340.     char    c;
  341.     long    charCount = 0;
  342.     
  343.     maxSize--;        // always allow room for the 0 terminator.
  344.     
  345.     while( curPosition < fileSize ) {
  346.     
  347.         c = this->ReadByte();        // avoid failures here!
  348.         curPosition++;
  349.  
  350.         if( charCount > maxSize  ) {
  351.             lineBuf[charCount] = 0;
  352.             Failure(kDataExceedsBufLen,0);    
  353.         }
  354.             
  355.         lineBuf[charCount] = c;
  356.         charCount++;
  357.         
  358.         if( c == lineTerminator )
  359.             break;
  360.             
  361.     }
  362.  
  363.  
  364.     lineBuf[charCount] = 0;
  365.     
  366.     return charCount;
  367. }
  368.  
  369.  
  370.  
  371. //-------------------------------------------------------------------------------
  372. void CFile::SetToStartOfLine(char lineTerminator) 
  373. {
  374.  
  375.         //    Move the file marker to the beginning of the 
  376.         //    next line in the file.
  377.         
  378.         
  379.     FailInfo fi;
  380.     Try(fi) {
  381.     
  382.         long curPosition = this->GetPosition();
  383.         long size = this->GetSize();
  384.         char c;
  385.         
  386.         if( (curPosition < size) && (curPosition != 0) )  {
  387.             this->SetPosition(curPosition-1);
  388.             do {
  389.                 c = this->ReadByte();
  390.             } while( c != lineTerminator );
  391.         }
  392.         
  393.         fi.Success();
  394.     }
  395.  
  396. }
  397.  
  398.  
  399. //-------------------------------------------------------------------------------
  400. OSErr CFile::SetType(OSType fileType)
  401. {
  402.     
  403.     CInfoPBRec    fileInfoPB;
  404.     memset(&fileInfoPB,0,sizeof(CInfoPBRec));
  405.     
  406.     OSErr osErr = this->GetCatInfo(fileInfoPB);
  407.     if( osErr != 0 )
  408.         return osErr;
  409.     
  410.     fileInfoPB.hFileInfo.ioFlFndrInfo.fdType  = fileType;
  411.     
  412.     osErr = this->SetCatInfo(fileInfoPB);
  413.     if( osErr != 0 )
  414.         return osErr;
  415.     
  416.         
  417.     return osErr;
  418.  
  419. }
  420.  
  421.  
  422. //-------------------------------------------------------------------------------
  423. OSErr CFile::SetCreator(OSType fileCreator)
  424. {
  425.     
  426.     CInfoPBRec    fileInfoPB;
  427.     memset(&fileInfoPB,0,sizeof(CInfoPBRec));
  428.     
  429.     OSErr osErr = this->GetCatInfo(fileInfoPB);
  430.     if( osErr != 0 )
  431.         return osErr;
  432.     
  433.     fileInfoPB.hFileInfo.ioFlFndrInfo.fdCreator  = fileCreator;
  434.     
  435.     osErr = this->SetCatInfo(fileInfoPB);
  436.     if( osErr != 0 )
  437.         return osErr;
  438.     
  439.         
  440.     return osErr;
  441.  
  442. }
  443.  
  444.  
  445. //-------------------------------------------------------------------------------
  446. OSErr CFile::SetCreatorAndType(OSType fileCreator,OSType fileType)
  447. {
  448.     
  449.     CInfoPBRec    fileInfoPB;
  450.     memset(&fileInfoPB,0,sizeof(CInfoPBRec));
  451.     
  452.     OSErr osErr = this->GetCatInfo(fileInfoPB);
  453.     if( osErr != 0 )
  454.         return osErr;
  455.     
  456.     fileInfoPB.hFileInfo.ioFlFndrInfo.fdType  = fileType;
  457.     fileInfoPB.hFileInfo.ioFlFndrInfo.fdCreator  = fileCreator;
  458.     
  459.     osErr = this->SetCatInfo(fileInfoPB);
  460.     if( osErr != 0 )
  461.         return osErr;
  462.     
  463.         
  464.     return osErr;
  465.  
  466. }
  467.  
  468.  
  469.  
  470. //-------------------------------------------------------------------------------
  471. long CFile::GetCreationDate()
  472. {
  473.     HParamBlockRec pb;
  474.  
  475.     if (this->GetFileInfo(pb) == noErr)
  476.         return pb.fileParam.ioFlCrDat;
  477.     else
  478.         return 0;
  479. } 
  480.  
  481.  
  482. //-------------------------------------------------------------------------------
  483. long CFile::GetModificationDate()
  484. {
  485.     HParamBlockRec pb;
  486.  
  487.     if (this->GetFileInfo(pb) == noErr)
  488.         return pb.fileParam.ioFlMdDat;
  489.     else
  490.         return 0;
  491. } 
  492.  
  493.  
  494.  
  495.  
  496. //------------------------------------------------------------------------------------------------------------------------
  497. OSErr CFile::GetPhysicalSize(long& dataSize, long& rsrcSize)
  498. {
  499.     HParamBlockRec pb;
  500.     OSErr theErr;
  501.  
  502.     if ((theErr = this->GetFileInfo(pb)) == noErr) {
  503.         dataSize = pb.fileParam.ioFlPyLen;
  504.         rsrcSize = pb.fileParam.ioFlRPyLen;
  505.     }
  506.     return theErr;
  507. }
  508.  
  509.  
  510.  
  511. //------------------------------------------------------------------------------------------------------------------------
  512. OSErr CFile::GetFileInfo(HParamBlockRec& pb)
  513. {
  514.     CStr63 itsName;
  515.  
  516.     itsName = fFSSpec.name;
  517.     pb.fileParam.ioNamePtr = (StringPtr) itsName;
  518.     pb.fileParam.ioVRefNum = this->VRefNum();
  519.     pb.fileParam.ioDirID = this->ParID();
  520.     pb.fileParam.ioFVersNum = 0;
  521.     pb.fileParam.ioFDirIndex = 0;
  522.     OSErr err = PBHGetFInfoSync(&pb);
  523.     pb.fileParam.ioNamePtr = NULL;
  524.     return err;
  525. }
  526.  
  527.  
  528.  
  529. //------------------------------------------------------------------------
  530. OSErr CFile::GetFileID(long* fileID )
  531. {
  532.     *fileID = 0;
  533.  
  534.     FIDParam            fidPB;
  535.     memset(&fidPB,0,sizeof(FIDParam));
  536.     
  537.     fidPB.ioNamePtr        = this->NamePtr();
  538.     fidPB.ioVRefNum      = this->VRefNum();
  539.     fidPB.ioSrcDirID     = this->ParID();
  540.     
  541.     OSErr osErr =  PBCreateFileIDRef( (HParmBlkPtr)&fidPB, false );
  542.  
  543.     if( (osErr == 0) || (osErr == fidExists)) {
  544.         *fileID = fidPB.ioFileID;
  545.         osErr = 0;
  546.     }
  547.     
  548.     
  549.     return osErr;
  550. }
  551.  
  552.  
  553.  
  554.  
  555. //------------------------------------------------------------------------
  556. Boolean CFile::Exists()
  557. {
  558.     HParamBlockRec    pb;
  559.     return this->GetFileInfo(pb) == 0;
  560. }
  561.  
  562. //--------------------------------------
  563. //        C F o l d e r
  564. //--------------------------------------
  565.  
  566.  
  567. CFolder::CFolder(short vRefNum,long parentDirID,StringPtr name) : CFSSpec(vRefNum,parentDirID,name)
  568. {
  569.     fDirID = 0;
  570.     fFolderType = 0;
  571. }
  572.  
  573. CFolder::CFolder(short vRefNum,long parentDirID,char* name) : CFSSpec(vRefNum,parentDirID,name)
  574. {
  575.     fDirID = 0;
  576.     fFolderType = 0;
  577. }
  578.  
  579. OSErr CFolder::CreateFolder()
  580. {
  581.     return FSpDirCreate(&fFSSpec,smSystemScript,&fDirID);
  582. }
  583.  
  584.  
  585. //-------------------------------------------------------------------------
  586. CFolder::CFolder(OSType folderType)
  587. {
  588.     fDirID = 0;
  589.     fFolderType = folderType;
  590.  
  591.     long parentDirID = 0;
  592.     short    vRefNum = 0;
  593.     
  594.     if( folderType == 'root' )
  595.         parentDirID = 2;
  596.         
  597.     if( parentDirID != 2 )        
  598.         FindFolder(0,folderType,kCreateFolder,&vRefNum,&parentDirID);
  599.  
  600.  
  601.     this->SetFSSpec(vRefNum,parentDirID,(StringPtr)0);
  602.  
  603.         // Set the name and directory ID.
  604.         
  605.     DirInfo    dirInfoPB;
  606.     OSErr osErr = this->GetDirInfo(dirInfoPB);
  607.     
  608.     if(osErr == 0 )
  609.         fDirID = dirInfoPB.ioDrDirID;
  610.         
  611. }
  612.  
  613.  
  614.  
  615. //-------------------------------------------------------------------------
  616. OSErr CFolder::GetDirInfo(DirInfo& dirInfoPB)
  617. {
  618.     memset(&dirInfoPB,0,sizeof(DirInfo));
  619.     return this->GetCatInfo((CInfoPBRec&)dirInfoPB);
  620. }
  621.  
  622. //----------------------------------
  623. //    C F o l d e r I t e r a t o r
  624. //-----------------------------------
  625.  
  626.  
  627.  
  628. CFolderIterator::CFolderIterator(CFolder& folder,CFolderIterator::ItemFilter itemFilter)
  629. {
  630.     fItemFilter = itemFilter;
  631.     fIndex = 0;
  632.     fCatInfo = (HFileInfo*)&fCatInfoPB;
  633.     
  634.     fVRefNum = folder.VRefNum();
  635.     fDirID = folder.DirID();
  636.     
  637. }
  638.  
  639. //-------------------------------------------------------------------------------------
  640. HFileInfo*    CFolderIterator::FirstFile()
  641. {
  642.     fIndex = 1;
  643.  
  644.     this->DoGet();
  645.     
  646.     if( fCatInfo->ioResult != 0 )
  647.         return (HFileInfo*)0;
  648.         
  649.     return fCatInfo;
  650. }
  651.  
  652.  
  653. //-------------------------------------------------------------------------------------
  654. HFileInfo*    CFolderIterator::NextFile()
  655. {
  656.     fIndex++;
  657.  
  658.     if( this->More() )
  659.         this->DoGet();
  660.         
  661.     if( fCatInfo->ioResult != 0 )
  662.         return (HFileInfo*)0;
  663.         
  664.     return fCatInfo;
  665. }
  666.  
  667.  
  668.  
  669. //-------------------------------------------------------------------------------------
  670. void    CFolderIterator::DoGet()
  671. {
  672.  
  673.     
  674.     for(;;) {
  675.     
  676.             //    Experience has taught that it is safest
  677.             //    to completely reset the PB every time.
  678.             
  679.         memset(&fCatInfoPB,0,sizeof(CInfoPBRec)); 
  680.         
  681.         fCatInfo->ioFDirIndex = fIndex;
  682.         fCatInfo->ioVRefNum = fVRefNum;
  683.         fCatInfo->ioDirID = fDirID;
  684.         fNameBuf[0] = 0;
  685.         fCatInfo->ioNamePtr = (StringPtr)fNameBuf;
  686.         
  687.         PBGetCatInfo((CInfoPBPtr)fCatInfo,gFileAsync);
  688.         
  689.         do {
  690.             YieldToAnyThread();
  691.         } while( gFileAsync && (fCatInfo->ioResult > 0) );
  692.         
  693.         if( fCatInfo->ioResult != 0 )
  694.             break;
  695.  
  696.  
  697.         if ((fCatInfo->ioFlAttrib & ioDirMask) == ioDirMask) {
  698.             if( fItemFilter == kFoldersOnly || fItemFilter == kFilesAndFolders)
  699.                 break;        // its a folder
  700.         }  else { 
  701.             if( fItemFilter == kFilesOnly || fItemFilter == kFilesAndFolders)
  702.                 break;        // its a file
  703.         }
  704.         
  705.         fIndex++;
  706.         
  707.     }
  708.     
  709.     
  710. }
  711.  
  712.  
  713.  
  714.  
  715.  
  716. //-----------------------
  717. //    Procedural Stuff
  718. //-----------------------
  719.  
  720.  
  721. //------------------------------------------------------------------------------------------------------
  722. #pragma segment Templates
  723. OSErr SearchFolder(short vRefNum, long dirID, Boolean (*DoEachFile)(HFileInfo* filePB,void* refCon), void* refCon )
  724. {
  725.     CInfoPBRec    catPB;
  726.     HFileInfo    *filePB;
  727.     Str255        nameBuf;
  728.     OSErr        err;
  729.     int            index;
  730.  
  731.     index = 1;
  732.     filePB = (HFileInfo*)&catPB;
  733.     do {
  734.         memset(filePB,0,sizeof(CInfoPBRec));
  735.         filePB->ioNamePtr = (StringPtr)&nameBuf;
  736.         filePB->ioFDirIndex = index;
  737.         filePB->ioVRefNum = vRefNum;
  738.         filePB->ioDirID = dirID;
  739.         
  740.         err = PBGetCatInfo((CInfoPBPtr)filePB,0);
  741.         
  742.         if( err == noErr )
  743.             if( DoEachFile((HFileInfo*)&catPB,refCon) ) 
  744.                 break;
  745.  
  746.         index++;
  747.     } while( err == 0 );
  748.     
  749.  
  750.     return err;
  751. }
  752.  
  753.  
  754. //------------------------------------------------------------------------------------------------------
  755. Boolean FindAnyFile(HFileInfo* filePB,void* refCon)
  756. {
  757.     Boolean    haltSearch = false;
  758.     if( (filePB->ioFlAttrib & ioDirMask) == 0 ) {    // skip folders
  759.     
  760.         CFile*    file = (CFile*)refCon;
  761.         FSMakeFSSpec(filePB->ioVRefNum,filePB->ioFlParID,filePB->ioNamePtr,&file->fFSSpec);
  762.         haltSearch = true;
  763.     }
  764.  
  765.     return haltSearch;
  766.     
  767. }
  768.  
  769.  
  770.  
  771. //------------------------------------------------------------------------------------------------------
  772. Boolean __FindFolder(HFileInfo* filePB,void* refCon)
  773. {
  774.     Boolean    haltSearch = false;
  775.     
  776.     if( (filePB->ioFlAttrib & ioDirMask) != 0 ) {        // check only folders
  777.         
  778.         CFolder* folder = (CFolder*) refCon;
  779.         
  780.         if( PLstrcmp(folder->fFSSpec.name,filePB->ioNamePtr) == 0 ) {
  781.             FSMakeFSSpec(filePB->ioVRefNum,filePB->ioFlParID,filePB->ioNamePtr,&folder->fFSSpec);
  782.             folder->fDirID = filePB->ioDirID;
  783.             haltSearch = true;
  784.         }
  785.     }
  786.  
  787.     return haltSearch;
  788.     
  789. }
  790.  
  791.  
  792. //------------------------------------------------------------------------------------------------------
  793. OSErr FindFolder(CFolder* folder)
  794. {
  795.     return SearchFolder(folder->fFSSpec.vRefNum, folder->fFSSpec.parID, __FindFolder,folder);
  796. }
  797.  
  798.  
  799. //------------------------------------------------------------------------------------------------------------------------
  800. Boolean __FindFileByName(HFileInfo* filePB,void* refCon); // the compile insist on a prototype
  801. Boolean __FindFileByName(HFileInfo* filePB,void* refCon)
  802. {
  803.     CFile* file = (CFile*) refCon;
  804.     Boolean haltSearch = false;
  805.     
  806.     if( PLstrcmp(file->fFSSpec.name,filePB->ioNamePtr) == 0 ) {
  807.         FSMakeFSSpec(filePB->ioVRefNum,filePB->ioFlParID,filePB->ioNamePtr,&file->fFSSpec);
  808.         haltSearch = true;
  809.     }
  810.  
  811.     return haltSearch;
  812. }
  813.  
  814.  
  815.  
  816. //------------------------------------------------------------------------------------------------------------------------
  817. Boolean FindFileByName(short vRefNum, long dirID, CFile* fileToFind)
  818. {
  819.     fileToFind->fFSSpec.vRefNum = 0;
  820.     return SearchFolder(vRefNum,dirID,__FindFileByName, fileToFind);
  821. }
  822.  
  823.  
  824. //-------------------------------------------------------------------------------------
  825. int ParseHFSPath(char* pathName,char** folderList)
  826. {
  827.  
  828.     //    Get a list of folder names from a path name
  829.     
  830.     int    folderLevels = 0;
  831.     char* token = strtok(pathName,":");
  832.  
  833.     while( (token!=0) && (folderLevels<kMaxPathLevels) ) {
  834.         folderList[folderLevels++] = token;
  835.         token = strtok(NULL,":");
  836.     }
  837.     
  838.     //    convert them to pascal strings.
  839.     
  840.     for(int i=0;i<folderLevels;i++)
  841.         c2pstr(folderList[i]);
  842.         
  843.     return folderLevels;
  844. }
  845.  
  846.  
  847.  
  848. //-------------------------------------------------------------------------------------
  849. OSErr FocHFSHeirarchy(OSType folderParentType,char* path,CFolder& lastChild)
  850. {
  851.         //    Get the dirID for parent
  852.         
  853.         
  854.     short    rootVRefNum = 0;
  855.     long    parentDirID = 0;
  856.     
  857.     if( folderParentType == 'root' )
  858.         parentDirID = 2;
  859.         
  860.     if( parentDirID != 2 )        
  861.         FindFolder(0,folderParentType,kCreateFolder,&rootVRefNum,&parentDirID);
  862.  
  863.  
  864.         //    Create list of folder names.  
  865.         
  866.         
  867.     char*    folderNames[kMaxPathLevels];
  868.     int    folderLevels = ParseHFSPath(path,folderNames);
  869.     ASSERT(folderLevels!=0);
  870.  
  871.  
  872.  
  873.     for(int i=0;i<folderLevels;i++) {
  874.  
  875.  
  876.         CFolder    aFolder(0,parentDirID,(StringPtr)folderNames[i]);
  877.         OSErr osErr = FindFolder(&aFolder);
  878.  
  879.         if( osErr != 0 )
  880.             aFolder.CreateFolder();
  881.  
  882.  
  883.             //    Cache it. -- it may be the last child
  884.             
  885.             
  886.         lastChild = aFolder;                    // bitwize copy
  887.         parentDirID = lastChild.fDirID;        // the next folder goes is a child of the previous
  888.     }
  889.  
  890.  
  891.     return noErr;    // just an innocent assumption!?!?!
  892.     
  893.  
  894. }
  895.  
  896.  
  897. //-------------------------------------------------------------------------------------
  898. OSErr FocHFSHeirarchyFromResource(short resId,CFolder& lastChild)
  899. {
  900.  
  901.     FolderSpecResource** folderResource = (FolderSpecResource**) ::GetResource('fldr',resId);
  902.     FailResError();
  903.     
  904.     char    path[kMaxPathnameLen];
  905.     BlockMove((*folderResource)->folderPath,path,kMaxPathnameLen); // copy this 'cause it gets modified by strtok below
  906.  
  907.     return FocHFSHeirarchy((*folderResource)->folderParentType,path,lastChild);
  908. }
  909.  
  910.     
  911.  
  912. //-----------------------------------------------------------------------------------
  913. OSErr ExchangeFileIDs(CFile& srcFile,CFile& destFile)
  914. {
  915. #ifdef JUNK
  916.     FIDParam            fidPB;
  917.     memset(&fidPB,0,sizeof(FIDParam));
  918.     
  919.     fidPB.ioNamePtr        = srcFile.NamePtr();
  920.     fidPB.ioVRefNum      = srcFile.VRefNum();
  921.     fidPB.ioSrcDirID     = srcFile.ParID();
  922.     
  923.     fidPB.ioDestNamePtr    = destFile.NamePtr();
  924.     fidPB.ioDestDirID     = destFile.ParID();
  925.  
  926.     return PBExchangeFiles( (HParmBlkPtr)&fidPB, false );
  927. #endif
  928.     return FSpExchangeFiles(&srcFile.fFSSpec,&destFile.fFSSpec);
  929. }
  930.  
  931.